home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dynami_1 / balloona.bas < prev    next >
Encoding:
BASIC Source File  |  1999-08-31  |  2.9 KB  |  83 lines
  1. Attribute VB_Name = "BalloonAPI"
  2. '--------------------------------------
  3. ' ________  Copyright EAguirre (c)1999
  4. '(        ) eaguirre@comtrade.com.mx
  5. '(  ______)
  6. ' \/
  7. ' BalloonToolTip
  8. '--------------------------------------
  9. Option Explicit
  10.  
  11. 'Type Declarations
  12. Public Type RECT
  13.         Left As Long
  14.         Top As Long
  15.         Right As Long
  16.         Bottom As Long
  17. End Type
  18.  
  19. Public Type POINTAPI
  20.         x As Long
  21.         y As Long
  22. End Type
  23.  
  24. Public Type DRAWTEXTPARAMS
  25.     cbSize As Long
  26.     iTabLength As Long
  27.     iLeftMargin As Long
  28.     iRightMargin As Long
  29.     uiLengthDrawn As Long
  30. End Type
  31.  
  32. Public Type Msg
  33.     hwnd As Long
  34.     message As Long
  35.     wParam As Long
  36.     lParam As Long
  37.     time As Long
  38.     pt As POINTAPI
  39. End Type
  40.  
  41. 'Window Messages
  42. Public Const WM_MOUSEMOVE = &H200
  43. Public Const WM_SETCURSOR = &H20
  44. Public Const WM_HSCROLL = &H114
  45. Public Const WM_KEYDOWN = &H100
  46. Public Const WM_KEYUP = &H101
  47. Public Const WM_LBUTTONDOWN = &H201
  48. Public Const WM_MBUTTONDOWN = &H207
  49. Public Const WM_RBUTTONDOWN = &H204
  50. Public Const WM_VSCROLL = &H115
  51. 'Drawing Text
  52. Public Const DT_CALCRECT = &H400
  53. Public Const DT_CENTER = &H1
  54. Public Const DT_LEFT = &H0
  55. Public Const DT_RIGHT = &H2
  56. Public Const DT_WORDBREAK = &H10
  57. 'Region
  58. Public Const RGN_OR = 2
  59.  
  60. 'Functions Declares
  61. Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, _
  62.                         ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  63. Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, _
  64.                         ByVal X2 As Long, ByVal Y2 As Long) As Long
  65. Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, _
  66.                         ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, _
  67.                         ByVal Y3 As Long) As Long
  68. Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, _
  69.                         ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, _
  70.                         ByVal nCombineMode As Long) As Long
  71. Public Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, _
  72.                         ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
  73. Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, _
  74.                         ByVal bRedraw As Boolean) As Long
  75. Public Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, _
  76.                         ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, _
  77.                         ByVal wFormat As Long) As Long
  78. Public Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, _
  79.                         ByVal hwnd As Long, ByVal wMsgFilterMin As Long, _
  80.                         ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
  81. Public Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
  82.  
  83.